home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / vbasic / health.exe / ASSESS3.FRM < prev    next >
Text File  |  1993-07-23  |  9KB  |  268 lines
  1. VERSION 2.00
  2. Begin Form assess3 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Form4"
  5.    ClientHeight    =   5010
  6.    ClientLeft      =   1020
  7.    ClientTop       =   1425
  8.    ClientWidth     =   7650
  9.    ForeColor       =   &H000000C0&
  10.    Height          =   5415
  11.    Left            =   960
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form4"
  14.    ScaleHeight     =   5010
  15.    ScaleWidth      =   7650
  16.    Tag             =   "physical"
  17.    Top             =   1080
  18.    Width           =   7770
  19.    Begin PictureBox Picture3 
  20.       AutoRedraw      =   -1  'True
  21.       BorderStyle     =   0  'None
  22.       Height          =   615
  23.       Left            =   600
  24.       ScaleHeight     =   615
  25.       ScaleWidth      =   2175
  26.       TabIndex        =   7
  27.       Top             =   4200
  28.       Visible         =   0   'False
  29.       Width           =   2175
  30.    End
  31.    Begin PictureBox Picture2 
  32.       BorderStyle     =   0  'None
  33.       Height          =   2655
  34.       Left            =   0
  35.       Picture         =   ASSESS3.FRX:0000
  36.       ScaleHeight     =   2655
  37.       ScaleWidth      =   7215
  38.       TabIndex        =   4
  39.       Top             =   600
  40.       Visible         =   0   'False
  41.       Width           =   7215
  42.    End
  43.    Begin PictureBox Picture1 
  44.       BorderStyle     =   0  'None
  45.       DrawWidth       =   2
  46.       Height          =   3735
  47.       Left            =   480
  48.       ScaleHeight     =   3735
  49.       ScaleWidth      =   6255
  50.       TabIndex        =   0
  51.       Top             =   120
  52.       Width           =   6255
  53.       Begin CheckBox Check1 
  54.          Caption         =   "   O=Other"
  55.          FontBold        =   -1  'True
  56.          FontItalic      =   0   'False
  57.          FontName        =   "MS Sans Serif"
  58.          FontSize        =   12
  59.          FontStrikethru  =   0   'False
  60.          FontUnderline   =   0   'False
  61.          Height          =   375
  62.          Left            =   1920
  63.          TabIndex        =   6
  64.          Top             =   3000
  65.          Width           =   2415
  66.       End
  67.       Begin AniPushButton AniButton3 
  68.          BackColor       =   &H00FFFFFF&
  69.          Cycle           =   2  '2-state 1/2 & 1/2
  70.          Height          =   480
  71.          Index           =   0
  72.          Left            =   3600
  73.          PictDrawMode    =   1  'Autosize control
  74.          Picture         =   ASSESS3.FRX:4B43A
  75.          TabIndex        =   5
  76.          Top             =   120
  77.          Width           =   480
  78.       End
  79.       Begin AniPushButton AniButton2 
  80.          BackColor       =   &H00FFFFFF&
  81.          Caption         =   " "
  82.          Height          =   480
  83.          Left            =   3000
  84.          Picture         =   ASSESS3.FRX:4BA1C
  85.          Speed           =   162
  86.          TabIndex        =   3
  87.          TextPosition    =   2  'Left
  88.          Top             =   120
  89.          Width           =   465
  90.       End
  91.       Begin AniPushButton AniButton1 
  92.          BackColor       =   &H00FFFFFF&
  93.          Caption         =   "Next Page"
  94.          Height          =   615
  95.          Index           =   0
  96.          Left            =   4320
  97.          Picture         =   ASSESS3.FRX:4BFFE
  98.          Speed           =   162
  99.          TabIndex        =   2
  100.          TextPosition    =   2  'Left
  101.          Top             =   0
  102.          Width           =   1455
  103.       End
  104.       Begin AniPushButton AniButton1 
  105.          BackColor       =   &H00FFFFFF&
  106.          Caption         =   "Back Page"
  107.          Height          =   615
  108.          Index           =   1
  109.          Left            =   0
  110.          Picture         =   ASSESS3.FRX:4CEAA
  111.          Speed           =   162
  112.          TabIndex        =   1
  113.          TextPosition    =   1  'Right
  114.          Top             =   0
  115.          Width           =   1455
  116.       End
  117.    End
  118. End
  119. Dim drawok, locked As Integer
  120.  
  121. Sub AniButton1_Click (Index As Integer)
  122. If smartform(5) Then
  123.  
  124.         Select Case Index
  125.         Case 1
  126.         
  127.         medhist.Show
  128.         assess3.Hide
  129.  
  130.         Case 0
  131.         MDIMForm.Show
  132.         MDIChild1C.Move 0, 0, MDIMForm.ScaleWidth, MDIMForm.ScaleHeight
  133.         MDIChild1B.Move 0, 360, MDIMForm.ScaleWidth, MDIMForm.ScaleHeight
  134.         MDIChild1A.Move 0, 720, MDIMForm.ScaleWidth, MDIMForm.ScaleHeight
  135.         
  136.         assess3.Hide
  137.  
  138.         End Select
  139. Else
  140. formcheck "Identifying Marks"
  141. End If
  142.  
  143. End Sub
  144.  
  145. Sub AniButton2_Click ()
  146. If smartform(5) Then
  147. menumode assess3
  148. Else
  149. formcheck "Identifying Marks"
  150. End If
  151.  
  152. End Sub
  153.  
  154. Sub AniButton3_Click (Index As Integer)
  155.  
  156. Select Case anibutton3(0).Value
  157. Case 1
  158. picloc = 0    ' for smartform
  159. locked = 0
  160. msg$ = "      Clear the Drawing?"
  161. x% = MsgBox(msg$, 4, "IDENTIFYING MARKS")
  162.         If x% = 6 Then
  163.             screen.MousePointer = 11
  164.             Picture1.Picture = Picture2.Picture
  165.             msg$ = "Indicate Location"
  166.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  167.             Picture1.CurrentY = Picture1.ScaleHeight - 13 * (TextHeight(msg$))
  168.             Picture1.Print msg$
  169.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  170.             Picture1.Print "S=Scars"
  171.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  172.             Picture1.Print "B=Bruises"
  173.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  174.             Picture1.Print "R=Rashes"
  175.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  176.             '******************************************************
  177.             check1.Visible = -1
  178.             screen.MousePointer = 0
  179.            
  180.             
  181.         End If
  182.     Case 2
  183.     picloc = -1     ' for smartform
  184.     locked = -1
  185.     check1.Visible = 0
  186.     
  187.     msg$ = "Indicate Location"
  188.     Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  189.     Picture1.CurrentY = Picture1.ScaleHeight - 13 * (TextHeight(msg$))
  190.     Picture1.Print msg$
  191.     Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  192.     Picture1.Print "S=Scars"
  193.     Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  194.     Picture1.Print "B=Bruises"
  195.     Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  196.     Picture1.Print "R=Rashes"
  197.     y = Picture1.CurrentY
  198.     Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  199.     Picture1.Line (Picture1.CurrentX, Picture1.CurrentY)-Step(TextWidth("Indicate Location") * 1.1, TextHeight(msg$) * 1.3), QBColor(15), BF
  200.     Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  201.     Picture1.CurrentY = y
  202.     Picture1.Print LTrim$(check1.Caption)
  203.     
  204.     screen.MousePointer = 11
  205.     bounce2 assess3.Picture1, assess3.Picture3
  206.     screen.MousePointer = 0
  207.  
  208.     Picture1.Picture = Picture3.Image
  209. End Select
  210.  
  211. End Sub
  212.  
  213. Sub Check1_Click ()
  214. If check1.Value Then
  215. BEditform.Label1.Tag = " Enter Other Injuries And Marks"
  216. BEditform.Command2.Tag = " Re-Enter Other Marks"
  217. BEditform.Show 1
  218. End If
  219. End Sub
  220.  
  221. Sub Form_Load ()
  222.  
  223. Picture1.ForeColor = &H0&
  224. Picture1.FontSize = 12
  225.  
  226. assess3.Move 0, 0, screen.Width, screen.Height
  227. Picture1.Move 0, 0, assess3.ScaleWidth, assess3.ScaleHeight
  228. Picture2.Move 0, 0, assess3.ScaleWidth, assess3.ScaleHeight
  229. Picture3.Move 0, 0, assess3.ScaleWidth, assess3.ScaleHeight
  230.  
  231. anibutton1(0).Move Picture1.Width - anibutton1(0).Width * 1.1, Picture1.Height - anibutton1(0).Height * 1.1
  232. anibutton1(1).Move 0, Picture1.Height - anibutton1(0).Height * 1.1
  233. anibutton2.Move (Picture1.Width - anibutton2.Width) / 2, Picture1.Height - anibutton2.Height * 1.3
  234. anibutton3(0).Move (anibutton2.Width * 1.3 + anibutton2.Left), Picture1.Height - anibutton2.Height * 1.3
  235.  
  236. assess3.Picture1.Picture = assess3.Picture2.Picture
  237.             Picture1.AutoRedraw = -1
  238.             msg$ = "Indicate Location"
  239.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  240.             Picture1.CurrentY = Picture1.ScaleHeight - 13 * (TextHeight(msg$))
  241.             Picture1.Print msg$
  242.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  243.             Picture1.Print "S=Scars"
  244.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  245.             Picture1.Print "B=Bruises"
  246.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  247.             Picture1.Print "R=Rashes"
  248.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  249.             Picture1.AutoRedraw = 0
  250.             check1.Move Picture1.CurrentX, Picture1.CurrentY
  251.             Picture1.AutoRedraw = 0  '*****
  252. End Sub
  253.  
  254. Sub Picture1_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
  255. Picture1.CurrentX = x
  256. Picture1.CurrentY = y
  257. drawok = -1
  258. End Sub
  259.  
  260. Sub Picture1_MouseMove (Button As Integer, Shift As Integer, x As Single, y As Single)
  261. If drawok And Not locked Then Picture1.Line -(x, y)
  262. End Sub
  263.  
  264. Sub Picture1_MouseUp (Button As Integer, Shift As Integer, x As Single, y As Single)
  265. drawok = 0
  266. End Sub
  267.  
  268.